home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Unofficial Addons & Patches / Battle Field Creator v1.31 (1994)(The Software Society)(DE)(de-en)[cr Machinery - Maximum][req. Battle Isle].zip / Battle Field Creator v1.31 (1994)(The Software Society)(DE)(de-en)[cr Machinery - Maximum][req. Battle Isle].adf / Install_HD < prev    next >
Text File  |  1994-05-30  |  4KB  |  159 lines
  1.  
  2. (set dir
  3.       (askdir
  4.            (prompt "In welchem Verzeichnis soll BFC installiert werden ?")
  5.            (help @askdir-help)
  6.            (default "DH0:")
  7.        )
  8. )
  9.  
  10. (set dir (expandpath dir))
  11.  
  12.  
  13. (copyfiles
  14.         (source "BFC:DATA")
  15.         (dest dir)
  16.         (choices "BFC.info")
  17. )
  18.  
  19. (set dir (tackon dir "BFC"))
  20. (makedir dir)
  21.  
  22. (makedir (tackon dir "MAPS"))
  23.  
  24.  
  25. (copyfiles
  26.         (prompt "Kopiere Dateien nach %s" dir)
  27.         (source "BFC:FONTS")
  28.         (dest "FONTS:")
  29.         (choices "BIC.font")
  30. )
  31.  
  32. (copyfiles
  33.         (prompt "Kopiere Dateien nach %s" dir)
  34.         (source "BFC:FONTS/BIC")
  35.         (dest "FONTS:BIC")
  36.         (choices "7" "9")
  37. )
  38.  
  39. (copyfiles
  40.         (prompt "Kopiere Hauptprogramm nach %s" dir)
  41.         (source "BFC:")
  42.         (dest dir)
  43.         (choices "BFC")
  44. )
  45.  
  46. (copyfiles
  47.         (dest dir)
  48.         (source "BFC:")
  49.         (choices "BFC:DATA/Battle Field Creator.info")
  50. )
  51.  
  52. (set bi2
  53.         (askoptions
  54.                 (prompt "Welche Disketten besitzen Sie ?")
  55.                 (help @askoptions-help)
  56.                 (choices "Battle Isle (TM)" "Data Disk 1" "Data Disk 2")
  57.                 (default 1)
  58.         )
  59. )
  60.  
  61. (set bi
  62.         (askoptions
  63.                 (prompt "Welche Disketten sind bereits installiert ?")
  64.                 (help @askoptions-help)
  65.                 (choices "Battle Isle (TM)" "Data Disk 1" "Data Disk 2")
  66.                 (default bi2)
  67.         )
  68. )
  69.  
  70.  
  71. (if (= (BITAND bi 1) 1)
  72.         ((set Pfad1 (askdir
  73.                         (prompt "Bitte Battle Isle (TM) Verzeichnis angeben")
  74.                         (help @askdir-help)
  75.                         (default "DH0:BlueByte/BattleIsle")
  76.                     )
  77.         )
  78.     (set zz1 ("Assign BI2: \"%s\"\n" Pfad1))
  79.         (set z1 ("Assign Computer: \"%s\"\nAssign LIB0: \"%s\"\n" (tackon Pfad1 "MAP") (tackon Pfad1 "LIB")))
  80.         )
  81. )
  82. (if (= (BITAND bi 2) 2)
  83.         ((set zz2 ("Assign BI6: \"%s\"\n" Pfad1))
  84.     (set z1 ("Assign Computer: \"%s\"\nAssign LIB0: \"%s\"\n" (tackon Pfad1 "MAP_N") (tackon Pfad1 "LIB_N")))
  85.          (set z2 ("Assign LIB1: \"%s\"\nAssign LIBe: \"%s\"\n" (tackon Pfad1 "LIB_W") (tackon Pfad1 "LIB")))
  86.         )
  87. )
  88. (if (= (BITAND bi 4) 4)
  89.         (
  90.         (set Pfad3 (askdir
  91.                         (prompt "Wo ist die Data Disk 2 installiert ?")
  92.                         (help @askdir-help)
  93.                         (default "DH0:BlueByte/Moon")
  94.                     )
  95.         )
  96.     (if (= (BITAND bi 1) 0)
  97.         (
  98.         (set z1 ("Assign DD2: \"%s\"\nAssign Computer: \"%s\"\n" Pfad3 (tackon Pfad3 "MAP")))
  99.         )
  100.     )
  101.         (set z3 ("Assign DD2: \"%s\"\nAssign LIB2: \"%s\"\n" Pfad3 (tackon Pfad3 "LIB")))
  102.         )
  103. )
  104.  
  105. (set Libs (BITAND (BITNOT bi) bi2))
  106.  
  107. (if (= (BITAND LIBS 1) 1)
  108.         ((makedir (tackon dir "LIB0"))
  109.         (makedir (tackon dir "Computer"))
  110.         (set z1 ("Assign Computer: \"%s\"\nAssign LIB0: \"%s\"\n" (tackon dir "Computer") (tackon dir "LIB0")))
  111.         (copyfiles
  112.                 (source "BI2:LIB")
  113.                 (dest (tackon dir "LIB0"))
  114.                 (choices "Part.Lib" "Part.Tab" "Unit.Lib" "Unit.Tab")
  115.  
  116.         )
  117.         (copyfiles
  118.                 (source "BI2:MAP")
  119.                 (dest (tackon dir "Computer"))
  120.                 (pattern "#?.com")
  121.         )
  122.         )
  123. )
  124.  
  125. (if (= (BITAND Libs 2) 2)
  126.         ((makedir (tackon dir "LIB1"))
  127.         (set z2("Assign LIB1: \"%s\"\n" (tackon dir "LIB1")))
  128.         (copyfiles
  129.                 (source "BI6:LIB")
  130.                 (dest (tackon dir "LIB1"))
  131.                 (choices "Part.Lib" "Part.Tab")
  132.         )
  133.         )
  134. )
  135.  
  136. (if (= (BITAND Libs 4) 4)
  137.         ((makedir (tackon dir "LIB2"))
  138.         (set z3 ("Assign LIB2: \"%s\"\n" (tackon dir "LIB2")))
  139.         (copyfiles
  140.                 (source "DD2:LIB")
  141.                 (dest (tackon dir "LIB2"))
  142.                 (choices "Part.Lib" "Unit.Lib")
  143.         )
  144.         )
  145.  
  146. )
  147.  
  148. (textfile
  149.         (dest (tackon dir "Battle Field Creator"))
  150.         (append ("Assign BFC: \"%s\"\n" dir))
  151.     (append zz1)
  152.     (append zz2)
  153.         (append z1)
  154.         (append z2)
  155.         (append z3)
  156.         (append ("\"%s\"" (tackon dir "BFC")))
  157. )
  158.  
  159.